home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / SirTommy.dxr / Internal_12_Fire behavior.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  475 b   |  19 lines
  1. property mys, currStep, k, madd
  2.  
  3. on beginSprite me
  4.   currStep = float(0)
  5.   mys = me.spriteNum
  6.   k = random(500)
  7.   sprite(mys).locV = 440
  8.   madd = 5
  9. end
  10.  
  11. on exitFrame me
  12.   sprite(mys).locH = ((the stage).rect.width / 2) + (cos((20 * sin(currStep / 20)) + (k * 90)) * 100 * (sin(10 + (currStep / (10 + k))) + 0.20000000000000001) * 2)
  13.   currStep = currStep + 0.09
  14.   sprite(mys).height = random(madd) + 20
  15.   if madd < 100 then
  16.     madd = madd + 0.20000000000000001
  17.   end if
  18. end
  19.